home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / TEMP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  152 lines
  1. 10  HOME : HGR : HCOLOR= 3
  2. 20 A = 20:B = 30:C = 35:D = 40:E = 35:F = 45:G = 50:H = 55:I = 50:J = 60
  3. 30 K = 60:L = 75:M = 60:N = 80:O = 60:P = 95:Q = 60:R = 100
  4. 80  FOR Z = 1 TO 5
  5. 90  HCOLOR= 3
  6. 100 X = A:Y = B: GOSUB 1140
  7. 105 X = C:Y = D: GOSUB 1202
  8. 110 X = E:Y = F: GOSUB 1140
  9. 115 X = G:Y = H: GOSUB 1202
  10. 120 X = I:Y = J: GOSUB 1140
  11. 125 X = K:Y = L: GOSUB 1232
  12. 130 X = M:Y = N: GOSUB 1140
  13. 135 X = O:Y = P: GOSUB 1212
  14. 140 X = Q:Y = R: GOSUB 1140
  15. 190  HCOLOR= 0
  16. 200 X = A:Y = B: GOSUB 1140
  17. 205 X = C:Y = D: GOSUB 1202
  18. 210 X = E:Y = F: GOSUB 1140
  19. 215 X = G:Y = H: GOSUB 1202
  20. 220 X = I:Y = J: GOSUB 1140
  21. 225 X = K:Y = L: GOSUB 1232
  22. 230 X = M:Y = N: GOSUB 1140
  23. 235 X = O:Y = P: GOSUB 1212
  24. 240 X = Q:Y = R: GOSUB 1140
  25. 250 A = A +5:C = C +4:E = E +3:G = G +3:I = I +2:K = K +2:M = M +1:O = O +1:Q = Q +1
  26. 260  NEXT Z
  27. 270 C = C -3:G = G -5:B = B -5:K = K -7:F = F -3
  28. 280  FOR Z = 1 TO 5
  29. 290  HCOLOR= 3
  30. 300 X = A:Y = B: GOSUB 1140
  31. 305 X = C:Y = D: GOSUB 1232
  32. 310 X = E:Y = F: GOSUB 1140
  33. 315 X = G:Y = H: GOSUB 1232
  34. 320 X = I:Y = J: GOSUB 1140
  35. 325 X = K:Y = L: GOSUB 1212
  36. 330 X = M:Y = N: GOSUB 1140
  37. 335 X = O:Y = P: GOSUB 1212
  38. 337 X = Q:Y = R: GOSUB 1140
  39. 340  HCOLOR= 0
  40. 345 X = A:Y = B: GOSUB 1140
  41. 350 X = C:Y = D: GOSUB 1232
  42. 355 X = E:Y = F: GOSUB 1140
  43. 360 X = G:Y = H: GOSUB 1232
  44. 365 X = I:Y = J: GOSUB 1140
  45. 370 X = K:Y = L: GOSUB 1212
  46. 375 X = M:Y = N: GOSUB 1140
  47. 380 X = O:Y = P: GOSUB 1212
  48. 385 X = Q:Y = R: GOSUB 1140
  49. 390 A = A +5:C = C +4:E = E +3:G = G +3:I = I +2:K = K +2:M = M +1:O = O +1:Q = Q +1
  50. 395  NEXT Z
  51. 400 C = C -4:D = D -5:G = G -5:B = B -5:F = F -3:K = K -3:E = E +4:A = A +3
  52. 410  FOR Z = 1 TO 5
  53. 415  HCOLOR= 3
  54. 420 X = A:Y = B: GOSUB 1140
  55. 425 X = C:Y = D: GOSUB 1242
  56. 430 X = E:Y = F: GOSUB 1140
  57. 435 X = G:Y = H: GOSUB 1212
  58. 440 X = I:Y = J: GOSUB 1140
  59. 445 X = K:Y = L: GOSUB 1212
  60. 450 X = M:Y = N: GOSUB 1140
  61. 455 X = O:Y = P: GOSUB 1212
  62. 460 X = Q:Y = R: GOSUB 1140
  63. 465  HCOLOR= 0
  64. 470 X = A:Y = B: GOSUB 1140
  65. 475 X = C:Y = D: GOSUB 1242
  66. 480 X = E:Y = F: GOSUB 1140
  67. 485 X = G:Y = H: GOSUB 1212
  68. 490 X = I:Y = J: GOSUB 1140
  69. 495 X = K:Y = L: GOSUB 1212
  70. 500 X = M:Y = N: GOSUB 1140
  71. 505 X = O:Y = P: GOSUB 1212
  72. 510 X = Q:Y = R: GOSUB 1140
  73. 515 A = A +5:C = C +4:E = E +3:G = G +3:I = I +2:K = K +2:M = M +1:O = O +1:Q = Q +1
  74. 520  NEXT Z
  75. 540 G = G -6:K = K -6:B = B +4:C = C -3:D = D -2:E = E +1
  76. 550  FOR Z = 1 TO 5
  77. 555  HCOLOR= 3
  78. 560 X = A:Y = B: GOSUB 1140
  79. 565 X = C:Y = D: GOSUB 1222
  80. 570 X = E:Y = F: GOSUB 1140
  81. 575 X = G:Y = H: GOSUB 1242
  82. 580 X = I:Y = J: GOSUB 1140
  83. 585 X = K:Y = L: GOSUB 1242
  84. 590 X = M:Y = N: GOSUB 1140
  85. 595 X = O:Y = P: GOSUB 1212
  86. 600 X = Q:Y = R: GOSUB 1140
  87. 605  HCOLOR= 0
  88. 610 X = A:Y = B: GOSUB 1140
  89. 615 X = C:Y = D: GOSUB 1222
  90. 620 X = E:Y = F: GOSUB 1140
  91. 625 X = G:Y = H: GOSUB 1242
  92. 630 X = I:Y = J: GOSUB 1140
  93. 635 X = K:Y = L: GOSUB 1242
  94. 640 X = M:Y = N: GOSUB 1140
  95. 645 X = O:Y = P: GOSUB 1212
  96. 650 X = Q:Y = R: GOSUB 1140
  97. 655 A = A +5:C = C +4:E = E +3:G = G +3:I = I +2:K = K +2:M = M +1:O = O +1:Q = Q +1
  98. 660  NEXT Z
  99. 670 K = K -2:G = G -3:H = H -2:E = E +4:F = F +2
  100. 675  HCOLOR= 3
  101. 690 X = E:Y = F: GOSUB 1140
  102. 695 X = G:Y = H: GOSUB 1222
  103. 700 X = I:Y = J: GOSUB 1140
  104. 705 X = K:Y = L: GOSUB 1242
  105. 710 X = M:Y = N: GOSUB 1140
  106. 715 X = O:Y = P: GOSUB 1212
  107. 720 X = Q:Y = R: GOSUB 1140
  108. 740  FOR Z = 1 TO 5
  109. 745  HCOLOR= 3
  110. 750 X = A:Y = B: GOSUB 1140
  111. 755  HCOLOR= 0
  112. 760 X = A:Y = B: GOSUB 1140
  113. 765 A = A +5: NEXT Z
  114. 770  HCOLOR= 3
  115. 775 X = A:Y = B: GOSUB 1140
  116. 950  END 
  117. 999  REM   SOLID HORIZ
  118. 1002  HPLOT X +2,Y -1 TO X +4,Y -1
  119. 1004  HPLOT X +1,Y -2 TO X +5,Y -2
  120. 1006  HPLOT X +1,Y -3 TO X +5,Y -3
  121. 1008  HPLOT X +1,Y -4 TO X +5,Y -4
  122. 1010  HPLOT X +2,Y -5 TO X +4,Y -5
  123. 1014  RETURN 
  124. 1020  REM  LARGER SOL HORIZ
  125. 1022  HPLOT X +1,Y TO X +5,Y
  126. 1024  HPLOT X,Y -1 TO X +6,Y -1
  127. 1026  HPLOT X,Y -2 TO X +6,Y -2
  128. 1028  HPLOT X,Y -3 TO X +6,Y -3
  129. 1030  HPLOT X,Y -4 TO X +6,Y -4
  130. 1032  HPLOT X,Y -5 TO X +6,Y -5
  131. 1034  HPLOT X +1,Y -6 TO X +5,Y -6
  132. 1036  RETURN 
  133. 1056  RETURN 
  134. 1140  REM   LARGER SOL VERT  
  135. 1142  HPLOT X,Y -1 TO X,Y -5
  136. 1144  HPLOT X +1,Y TO X +1,Y -6
  137. 1146  HPLOT X +2,Y TO X +2,Y -6
  138. 1148  HPLOT X +3,Y TO X +3,Y -6
  139. 1150  HPLOT X +4,Y TO X +4,Y -6
  140. 1152  HPLOT X +5,Y TO X +5,Y -6
  141. 1154  HPLOT X +6,Y -1 TO X +6,Y -5
  142. 1156  RETURN 
  143. 1200  REM  BACK
  144. 1202  HPLOT X +3,Y TO X -10,Y -12: RETURN 
  145. 1210  REM   STRAIGHT
  146. 1212  HPLOT X +3,Y TO X +3,Y -15: RETURN 
  147. 1220  REM   FORWARD
  148. 1222  HPLOT X +3,Y TO X +16,Y -12: RETURN 
  149. 1230  REM   SHARP BACK
  150. 1232  HPLOT X +3,Y TO X -6,Y -15: RETURN 
  151. 1240  REM    SHARP forward
  152. 1242  HPLOT X +3,Y TO X +10,Y -15: RETURN